   1 .ROCK/SHEARS/PAPER
   2 clear 
   3 print 
   4 NT=0
   5 BC=125
   6 FC=168
   7 print "    ROCK/SHEARS/PAPER    "
   8 print 
   9 input "  WINNING SCORE IS? :"D
  10 H=0
  20 C=0
  30 gosub 401
  60 print "    HUMAN:",H
  70 print " COMPUTER:",C
  74 if H=Dgoto 500
  76 if C=Dgoto 600
  80 A=rnd (3)
  90 input " YOUR CHOICE:"B
 100 print " I PICKED ",
 110 gosub 300+A
 120 print " YOU PICKED ",
 130 gosub 300+B
 140 if A=Bprint " A TIE!";goto 30
 150 if A=1if B=3goto 240
 160 if A=2if B=1goto 240
 170 if A=3if B=2goto 240
 180 print " I WIN!"
 190 NT=10
 200 print " 135mul 105mul 10000"
 210 NT=0
 220 C=C+1
 230 goto 30
 240 print " YOU WIN!"
 250 NT=10
 260 print " 3050034050000"
 270 NT=0
 280 H=H+1
 290 goto 30
 301 print " ROCK";return 
 302 print " SHEARS";return 
 303 print " PAPER";return 
 401 print "  1 ROCK"
 402 print "  2 SHEARS"
 403 print "  3 PAPER";return 
 500 NT=8
 505 clear 
 510 BC=225;FC=225
 520 print "504311div 511313543422div 522424654311div 5113135434222543111"
 525 clear 
 530 FC=168
 535 BC=125
 545 NT=0
 550 print "    YOU HAVE JUST BEAT   "
 560 print "       THE COMPUTER!     "
 570 print "    THIS MEANS YOU ARE   "
 580 print "  SMARTER THAN A MACHINE "
 582 print "      HUMAN:",H
 585 print "   COMPUTER:",C
 590 print "    CARE TO TRY AGAIN?   "
 595 print ;goto 4
 600 NT=10
 605 clear 
 610 BC=156;FC=156
 620 print "1350505050500mul 15034505042001000001350505050500mul 1503450504200100000"
 625 clear 
 630 FC=168
 635 BC=125
 640 print 
 645 NT=0
 650 print "  THE COMPUTER HAS JUST  "
 660 print "        BEAT YOU!        "
 662 print "       HUMAN:",H
 665 print "    COMPUTER:",C
 670 print "  CARE TO TRY IT AGAIN?  "
 680 print 
 690 goto 4
 700 :return 
:return ;run 